home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / DEMO02.DFM / DEMO02.txt
Text File  |  1997-01-27  |  26KB  |  1,103 lines
  1. object FBDemo02: TFBDemo02
  2.   Left = 575
  3.   Top = 438
  4.   Width = 502
  5.   Height = 311
  6.   HorzScrollBar.Position = 198
  7.   ActiveControl = Panel1
  8.   Caption = 'FBDemo02'
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 120
  16.   TextHeight = 16
  17.   object Panel1: TPanel
  18.     Left = -198
  19.     Top = 0
  20.     Width = 1072
  21.     Height = 50
  22.     Align = alTop
  23.     TabOrder = 0
  24.     object DBNavigator: TDBNavigator
  25.       Left = 10
  26.       Top = 10
  27.       Width = 280
  28.       Height = 31
  29.       DataSource = DataSource1
  30.       Ctl3D = False
  31.       ParentCtl3D = False
  32.       TabOrder = 0
  33.     end
  34.     object Button1: TButton
  35.       Left = 688
  36.       Top = 9
  37.       Width = 75
  38.       Height = 25
  39.       Caption = 'Button1'
  40.       TabOrder = 1
  41.       OnClick = Button1Click
  42.     end
  43.   end
  44.   object CBReport1: TCBReport
  45.     Left = -118
  46.     Top = 56
  47.     Width = 992
  48.     Height = 1403
  49.     Font.Color = clWindowText
  50.     Font.Height = 16
  51.     Font.Name = 'Arial'
  52.     Font.Style = []
  53.     Color = 15794175
  54.     ParentFont = False
  55.     About = 'Version 5.32'
  56.     AboutRegistered = 'LUKE GREWS'
  57.     Bands.Master = Master
  58.     Bands.Detail = CBDetailBand1
  59.     Bands.Title = Title
  60.     Bands.PageHeader = PageHeader
  61.     Bands.PageFooter = PageFooter
  62.     Viewer.BkColor = 11234567
  63.     Viewer.Heading = 'BandIt Viewer'
  64.     Viewer.ShowCancelDialog = True
  65.     Viewer.MinimizeRunForm = False
  66.     Viewer.ZoomPercentage = 100.000000000000000000
  67.     Page.FrameStyle = frThin
  68.     Page.MarginLeft = 0.400000000000000000
  69.     Page.MarginTop = 0.400000000000000000
  70.     Page.MarginRight = 0.400000000000000000
  71.     Page.PaperSize = A4
  72.     OutputTo = poViewer
  73.     Orientation = Default
  74.     Units = poInches
  75.     Copies = 1
  76.     LineSpacing = 2.500000000000000000
  77.     RewindBeforePrint = True
  78.     object Master: TCBBand
  79.       Left = 49
  80.       Top = 153
  81.       Width = 894
  82.       Height = 166
  83.       Align = alTop
  84.       Color = clWhite
  85.       Frame.Color = clSilver
  86.       Frame.Left = frNone
  87.       Frame.Right = frNone
  88.       Frame.Top = frSingleThin
  89.       Frame.Bottom = frSingleThin
  90.       ForceNewPage = False
  91.       BandType = cbMaster
  92.       DataSource = DataSource1
  93.       object Label35: TLabel
  94.         Left = 8
  95.         Top = 18
  96.         Width = 75
  97.         Height = 20
  98.         Alignment = taRightJustify
  99.         AutoSize = False
  100.         Caption = 'CustNo'
  101.       end
  102.       object Label36: TLabel
  103.         Left = 16
  104.         Top = 44
  105.         Width = 67
  106.         Height = 20
  107.         Alignment = taRightJustify
  108.         AutoSize = False
  109.         Caption = 'Company'
  110.       end
  111.       object Label37: TLabel
  112.         Left = 32
  113.         Top = 70
  114.         Width = 51
  115.         Height = 20
  116.         Alignment = taRightJustify
  117.         AutoSize = False
  118.         Caption = 'Addr1'
  119.       end
  120.       object Label38: TLabel
  121.         Left = 40
  122.         Top = 96
  123.         Width = 43
  124.         Height = 20
  125.         Alignment = taRightJustify
  126.         AutoSize = False
  127.         Caption = 'Addr2'
  128.       end
  129.       object Label39: TLabel
  130.         Left = 48
  131.         Top = 122
  132.         Width = 35
  133.         Height = 20
  134.         Alignment = taRightJustify
  135.         AutoSize = False
  136.         Caption = 'City'
  137.       end
  138.       object Label40: TLabel
  139.         Left = 376
  140.         Top = 20
  141.         Width = 35
  142.         Height = 20
  143.         Alignment = taRightJustify
  144.         AutoSize = False
  145.         Caption = 'State'
  146.       end
  147.       object Label41: TLabel
  148.         Left = 376
  149.         Top = 46
  150.         Width = 35
  151.         Height = 20
  152.         Alignment = taRightJustify
  153.         AutoSize = False
  154.         Caption = 'Zip'
  155.       end
  156.       object Label42: TLabel
  157.         Left = 360
  158.         Top = 72
  159.         Width = 51
  160.         Height = 20
  161.         Alignment = taRightJustify
  162.         AutoSize = False
  163.         Caption = 'Country'
  164.       end
  165.       object Label43: TLabel
  166.         Left = 360
  167.         Top = 98
  168.         Width = 51
  169.         Height = 20
  170.         Alignment = taRightJustify
  171.         AutoSize = False
  172.         Caption = 'Phone'
  173.       end
  174.       object Label44: TLabel
  175.         Left = 302
  176.         Top = 124
  177.         Width = 109
  178.         Height = 20
  179.         Alignment = taRightJustify
  180.         AutoSize = False
  181.         Caption = 'FAX'
  182.       end
  183.       object Label45: TLabel
  184.         Left = 590
  185.         Top = 22
  186.         Width = 109
  187.         Height = 20
  188.         Alignment = taRightJustify
  189.         AutoSize = False
  190.         Caption = 'TaxRate'
  191.       end
  192.       object Label46: TLabel
  193.         Left = 590
  194.         Top = 48
  195.         Width = 109
  196.         Height = 20
  197.         Alignment = taRightJustify
  198.         AutoSize = False
  199.         Caption = 'Contact'
  200.       end
  201.       object Label47: TLabel
  202.         Left = 590
  203.         Top = 74
  204.         Width = 109
  205.         Height = 20
  206.         Alignment = taRightJustify
  207.         AutoSize = False
  208.         Caption = 'LastInvoiceDate'
  209.       end
  210.       object DBEdit1: TDBEdit
  211.         Left = 89
  212.         Top = 14
  213.         Width = 91
  214.         Height = 24
  215.         DataField = 'CustNo'
  216.         DataSource = DataSource1
  217.         MaxLength = 0
  218.         TabOrder = 0
  219.       end
  220.       object DBEdit2: TDBEdit
  221.         Left = 89
  222.         Top = 40
  223.         Width = 231
  224.         Height = 24
  225.         DataField = 'Company'
  226.         DataSource = DataSource1
  227.         MaxLength = 30
  228.         TabOrder = 1
  229.       end
  230.       object DBEdit3: TDBEdit
  231.         Left = 89
  232.         Top = 66
  233.         Width = 231
  234.         Height = 24
  235.         DataField = 'Addr1'
  236.         DataSource = DataSource1
  237.         MaxLength = 30
  238.         TabOrder = 2
  239.       end
  240.       object DBEdit4: TDBEdit
  241.         Left = 89
  242.         Top = 92
  243.         Width = 231
  244.         Height = 24
  245.         DataField = 'Addr2'
  246.         DataSource = DataSource1
  247.         MaxLength = 30
  248.         TabOrder = 3
  249.       end
  250.       object DBEdit5: TDBEdit
  251.         Left = 89
  252.         Top = 118
  253.         Width = 126
  254.         Height = 24
  255.         DataField = 'City'
  256.         DataSource = DataSource1
  257.         MaxLength = 15
  258.         TabOrder = 4
  259.       end
  260.       object DBEdit6: TDBEdit
  261.         Left = 417
  262.         Top = 16
  263.         Width = 161
  264.         Height = 24
  265.         DataField = 'State'
  266.         DataSource = DataSource1
  267.         MaxLength = 20
  268.         TabOrder = 5
  269.       end
  270.       object DBEdit7: TDBEdit
  271.         Left = 417
  272.         Top = 42
  273.         Width = 91
  274.         Height = 24
  275.         DataField = 'Zip'
  276.         DataSource = DataSource1
  277.         MaxLength = 10
  278.         TabOrder = 6
  279.       end
  280.       object DBEdit8: TDBEdit
  281.         Left = 417
  282.         Top = 68
  283.         Width = 161
  284.         Height = 24
  285.         DataField = 'Country'
  286.         DataSource = DataSource1
  287.         MaxLength = 20
  288.         TabOrder = 7
  289.       end
  290.       object DBEdit9: TDBEdit
  291.         Left = 417
  292.         Top = 94
  293.         Width = 126
  294.         Height = 24
  295.         DataField = 'Phone'
  296.         DataSource = DataSource1
  297.         MaxLength = 15
  298.         TabOrder = 8
  299.       end
  300.       object DBEdit10: TDBEdit
  301.         Left = 417
  302.         Top = 120
  303.         Width = 126
  304.         Height = 24
  305.         DataField = 'FAX'
  306.         DataSource = DataSource1
  307.         MaxLength = 15
  308.         TabOrder = 9
  309.       end
  310.       object DBEdit11: TDBEdit
  311.         Left = 705
  312.         Top = 18
  313.         Width = 91
  314.         Height = 24
  315.         DataField = 'TaxRate'
  316.         DataSource = DataSource1
  317.         MaxLength = 0
  318.         TabOrder = 10
  319.       end
  320.       object DBEdit12: TDBEdit
  321.         Left = 705
  322.         Top = 44
  323.         Width = 161
  324.         Height = 24
  325.         DataField = 'Contact'
  326.         DataSource = DataSource1
  327.         MaxLength = 20
  328.         TabOrder = 11
  329.       end
  330.       object DBEdit13: TDBEdit
  331.         Left = 705
  332.         Top = 70
  333.         Width = 168
  334.         Height = 24
  335.         DataField = 'LastInvoiceDate'
  336.         DataSource = DataSource1
  337.         MaxLength = 0
  338.         TabOrder = 12
  339.       end
  340.     end
  341.     object PageHeader: TCBBand
  342.       Left = 49
  343.       Top = 49
  344.       Width = 894
  345.       Height = 41
  346.       Align = alTop
  347.       Color = clWhite
  348.       Frame.Color = clBlack
  349.       Frame.Left = frNone
  350.       Frame.Right = frNone
  351.       Frame.Top = frDoubleThickThin
  352.       Frame.Bottom = frNone
  353.       ForceNewPage = False
  354.       BandType = cbPageHeader
  355.       object CB_Label2: TCB_Label
  356.         Left = 364
  357.         Top = 8
  358.         Width = 166
  359.         Height = 32
  360.         Caption = 'Page Header'
  361.         Font.Color = clBlue
  362.         Font.Height = -27
  363.         Font.Name = 'Arial'
  364.         Font.Style = [fsBold]
  365.         ParentFont = False
  366.         Transparent = True
  367.         About = 'Version 5.32'
  368.         Style = stRaised
  369.         ShadowOffset = 5
  370.       end
  371.     end
  372.     object Title: TCBBand
  373.       Left = 49
  374.       Top = 90
  375.       Width = 894
  376.       Height = 63
  377.       Align = alTop
  378.       Color = clWhite
  379.       Frame.Color = clBlack
  380.       Frame.Left = frDoubleThin
  381.       Frame.Right = frDoubleThin
  382.       Frame.Top = frDoubleThin
  383.       Frame.Bottom = frDoubleThin
  384.       ForceNewPage = False
  385.       BandType = cbTitle
  386.       object CB_Label1: TCB_Label
  387.         Left = 311
  388.         Top = 16
  389.         Width = 272
  390.         Height = 32
  391.         Caption = 'Master - Detail Demo'
  392.         Font.Color = clRed
  393.         Font.Height = -27
  394.         Font.Name = 'Arial'
  395.         Font.Style = [fsBold]
  396.         ParentFont = False
  397.         Transparent = True
  398.         About = 'Version 5.32'
  399.         Style = stRaised
  400.         ShadowOffset = 5
  401.       end
  402.     end
  403.     object CBDetailBand1: TCBDetailBand
  404.       Left = 49
  405.       Top = 319
  406.       Width = 894
  407.       Height = 136
  408.       Align = alTop
  409.       Color = clWhite
  410.       Frame.Color = clSilver
  411.       Frame.Left = frSingleThin
  412.       Frame.Right = frSingleThin
  413.       Frame.Top = frSingleThin
  414.       Frame.Bottom = frSingleThin
  415.       ForceNewPage = False
  416.       BandType = cbDetail
  417.       DataSource = DataSource2
  418.       DetailTotalBand = DetailTotal
  419.       object Label14: TLabel
  420.         Left = 16
  421.         Top = 7
  422.         Width = 89
  423.         Height = 20
  424.         Alignment = taRightJustify
  425.         AutoSize = False
  426.         Caption = 'OrderNo'
  427.         FocusControl = EditOrderNo
  428.         Font.Color = clTeal
  429.         Font.Height = -15
  430.         Font.Name = 'Arial'
  431.         Font.Style = []
  432.         ParentFont = False
  433.       end
  434.       object Label16: TLabel
  435.         Left = 350
  436.         Top = 7
  437.         Width = 110
  438.         Height = 20
  439.         Alignment = taRightJustify
  440.         AutoSize = False
  441.         Caption = 'SaleDate'
  442.         FocusControl = EditSaleDate
  443.         Font.Color = clTeal
  444.         Font.Height = -15
  445.         Font.Name = 'Arial'
  446.         Font.Style = []
  447.         ParentFont = False
  448.       end
  449.       object Label17: TLabel
  450.         Left = 350
  451.         Top = 33
  452.         Width = 110
  453.         Height = 20
  454.         Alignment = taRightJustify
  455.         AutoSize = False
  456.         Caption = 'ShipDate'
  457.         FocusControl = EditShipDate
  458.         Font.Color = clTeal
  459.         Font.Height = -15
  460.         Font.Name = 'Arial'
  461.         Font.Style = []
  462.         ParentFont = False
  463.       end
  464.       object Label18: TLabel
  465.         Left = 46
  466.         Top = 33
  467.         Width = 59
  468.         Height = 20
  469.         Alignment = taRightJustify
  470.         AutoSize = False
  471.         Caption = 'EmpNo'
  472.         FocusControl = EditEmpNo
  473.         Font.Color = clTeal
  474.         Font.Height = -15
  475.         Font.Name = 'Arial'
  476.         Font.Style = []
  477.         ParentFont = False
  478.       end
  479.       object Label19: TLabel
  480.         Left = 5
  481.         Top = 59
  482.         Width = 100
  483.         Height = 20
  484.         Alignment = taRightJustify
  485.         AutoSize = False
  486.         Caption = 'ShipToContact'
  487.         FocusControl = EditShipToContact
  488.         Font.Color = clTeal
  489.         Font.Height = -15
  490.         Font.Name = 'Arial'
  491.         Font.Style = []
  492.         ParentFont = False
  493.       end
  494.       object Label20: TLabel
  495.         Left = 14
  496.         Top = 85
  497.         Width = 91
  498.         Height = 20
  499.         Alignment = taRightJustify
  500.         AutoSize = False
  501.         Caption = 'ShipToAddr1'
  502.         FocusControl = EditShipToAddr
  503.         Font.Color = clTeal
  504.         Font.Height = -15
  505.         Font.Name = 'Arial'
  506.         Font.Style = []
  507.         ParentFont = False
  508.       end
  509.       object Label21: TLabel
  510.         Left = 16
  511.         Top = 111
  512.         Width = 89
  513.         Height = 20
  514.         Alignment = taRightJustify
  515.         AutoSize = False
  516.         Caption = 'ShipToAddr2'
  517.         FocusControl = EditShipToAddr2
  518.         Font.Color = clTeal
  519.         Font.Height = -15
  520.         Font.Name = 'Arial'
  521.         Font.Style = []
  522.         ParentFont = False
  523.       end
  524.       object Label28: TLabel
  525.         Left = 350
  526.         Top = 59
  527.         Width = 110
  528.         Height = 20
  529.         Alignment = taRightJustify
  530.         AutoSize = False
  531.         Caption = 'PO'
  532.         FocusControl = EditPO
  533.         Font.Color = clTeal
  534.         Font.Height = -15
  535.         Font.Name = 'Arial'
  536.         Font.Style = []
  537.         ParentFont = False
  538.       end
  539.       object Label29: TLabel
  540.         Left = 350
  541.         Top = 85
  542.         Width = 110
  543.         Height = 20
  544.         Alignment = taRightJustify
  545.         AutoSize = False
  546.         Caption = 'Terms'
  547.         FocusControl = EditTerms
  548.         Font.Color = clTeal
  549.         Font.Height = -15
  550.         Font.Name = 'Arial'
  551.         Font.Style = []
  552.         ParentFont = False
  553.       end
  554.       object Label30: TLabel
  555.         Left = 350
  556.         Top = 111
  557.         Width = 110
  558.         Height = 20
  559.         Alignment = taRightJustify
  560.         AutoSize = False
  561.         Caption = 'PaymentMethod'
  562.         FocusControl = EditPaymentMethod
  563.         Font.Color = clTeal
  564.         Font.Height = -15
  565.         Font.Name = 'Arial'
  566.         Font.Style = []
  567.         ParentFont = False
  568.       end
  569.       object Label31: TLabel
  570.         Left = 638
  571.         Top = 7
  572.         Width = 110
  573.         Height = 20
  574.         Alignment = taRightJustify
  575.         AutoSize = False
  576.         Caption = 'ItemsTotal'
  577.         FocusControl = EditItemsTotal
  578.         Font.Color = clTeal
  579.         Font.Height = -15
  580.         Font.Name = 'Arial'
  581.         Font.Style = []
  582.         ParentFont = False
  583.       end
  584.       object Label32: TLabel
  585.         Left = 638
  586.         Top = 33
  587.         Width = 110
  588.         Height = 20
  589.         Alignment = taRightJustify
  590.         AutoSize = False
  591.         Caption = 'TaxRate'
  592.         FocusControl = EditTaxRate2
  593.         Font.Color = clTeal
  594.         Font.Height = -15
  595.         Font.Name = 'Arial'
  596.         Font.Style = []
  597.         ParentFont = False
  598.       end
  599.       object Label33: TLabel
  600.         Left = 638
  601.         Top = 59
  602.         Width = 110
  603.         Height = 20
  604.         Alignment = taRightJustify
  605.         AutoSize = False
  606.         Caption = 'Freight'
  607.         FocusControl = EditFreight
  608.         Font.Color = clTeal
  609.         Font.Height = -15
  610.         Font.Name = 'Arial'
  611.         Font.Style = []
  612.         ParentFont = False
  613.       end
  614.       object Label34: TLabel
  615.         Left = 638
  616.         Top = 85
  617.         Width = 110
  618.         Height = 20
  619.         Alignment = taRightJustify
  620.         AutoSize = False
  621.         Caption = 'AmountPaid'
  622.         FocusControl = EditAmountPaid
  623.         Font.Color = clTeal
  624.         Font.Height = -15
  625.         Font.Name = 'Arial'
  626.         Font.Style = []
  627.         ParentFont = False
  628.       end
  629.       object EditOrderNo: TDBEdit
  630.         Left = 114
  631.         Top = 5
  632.         Width = 91
  633.         Height = 24
  634.         DataField = 'OrderNo'
  635.         DataSource = DataSource2
  636.         MaxLength = 0
  637.         TabOrder = 0
  638.       end
  639.       object EditSaleDate: TDBEdit
  640.         Left = 466
  641.         Top = 5
  642.         Width = 168
  643.         Height = 24
  644.         DataField = 'SaleDate'
  645.         DataSource = DataSource2
  646.         MaxLength = 0
  647.         TabOrder = 1
  648.       end
  649.       object EditShipDate: TDBEdit
  650.         Left = 466
  651.         Top = 31
  652.         Width = 168
  653.         Height = 24
  654.         DataField = 'ShipDate'
  655.         DataSource = DataSource2
  656.         MaxLength = 0
  657.         TabOrder = 2
  658.       end
  659.       object EditEmpNo: TDBEdit
  660.         Left = 114
  661.         Top = 31
  662.         Width = 77
  663.         Height = 24
  664.         DataField = 'EmpNo'
  665.         DataSource = DataSource2
  666.         MaxLength = 0
  667.         TabOrder = 3
  668.       end
  669.       object EditShipToContact: TDBEdit
  670.         Left = 114
  671.         Top = 57
  672.         Width = 161
  673.         Height = 24
  674.         DataField = 'ShipToContact'
  675.         DataSource = DataSource2
  676.         MaxLength = 20
  677.         TabOrder = 4
  678.       end
  679.       object EditShipToAddr: TDBEdit
  680.         Left = 114
  681.         Top = 83
  682.         Width = 231
  683.         Height = 24
  684.         DataField = 'ShipToAddr1'
  685.         DataSource = DataSource2
  686.         MaxLength = 30
  687.         TabOrder = 5
  688.       end
  689.       object EditShipToAddr2: TDBEdit
  690.         Left = 114
  691.         Top = 109
  692.         Width = 231
  693.         Height = 24
  694.         DataField = 'ShipToAddr2'
  695.         DataSource = DataSource2
  696.         MaxLength = 30
  697.         TabOrder = 6
  698.       end
  699.       object EditPO: TDBEdit
  700.         Left = 466
  701.         Top = 57
  702.         Width = 126
  703.         Height = 24
  704.         DataField = 'PO'
  705.         DataSource = DataSource2
  706.         MaxLength = 15
  707.         TabOrder = 7
  708.       end
  709.       object EditTerms: TDBEdit
  710.         Left = 466
  711.         Top = 83
  712.         Width = 63
  713.         Height = 24
  714.         DataField = 'Terms'
  715.         DataSource = DataSource2
  716.         MaxLength = 6
  717.         TabOrder = 8
  718.       end
  719.       object EditPaymentMethod: TDBEdit
  720.         Left = 466
  721.         Top = 109
  722.         Width = 70
  723.         Height = 24
  724.         DataField = 'PaymentMethod'
  725.         DataSource = DataSource2
  726.         MaxLength = 7
  727.         TabOrder = 9
  728.       end
  729.       object EditItemsTotal: TDBEdit
  730.         Left = 754
  731.         Top = 5
  732.         Width = 91
  733.         Height = 24
  734.         DataField = 'ItemsTotal'
  735.         DataSource = DataSource2
  736.         MaxLength = 0
  737.         TabOrder = 10
  738.       end
  739.       object EditTaxRate2: TDBEdit
  740.         Left = 754
  741.         Top = 31
  742.         Width = 91
  743.         Height = 24
  744.         DataField = 'TaxRate'
  745.         DataSource = DataSource2
  746.         MaxLength = 0
  747.         TabOrder = 11
  748.       end
  749.       object EditFreight: TDBEdit
  750.         Left = 754
  751.         Top = 57
  752.         Width = 91
  753.         Height = 24
  754.         DataField = 'Freight'
  755.         DataSource = DataSource2
  756.         MaxLength = 0
  757.         TabOrder = 12
  758.       end
  759.       object EditAmountPaid: TDBEdit
  760.         Left = 754
  761.         Top = 83
  762.         Width = 91
  763.         Height = 24
  764.         DataField = 'AmountPaid'
  765.         DataSource = DataSource2
  766.         MaxLength = 0
  767.         TabOrder = 13
  768.       end
  769.     end
  770.     object DetailTotal: TCBBand
  771.       Left = 49
  772.       Top = 455
  773.       Width = 894
  774.       Height = 66
  775.       Align = alTop
  776.       Color = clWhite
  777.       Frame.Color = clSilver
  778.       Frame.Left = frSingleThin
  779.       Frame.Right = frSingleThin
  780.       Frame.Top = frSingleThin
  781.       Frame.Bottom = frSingleThin
  782.       ForceNewPage = False
  783.       BandType = cbDetailTotal
  784.       object Label1: TLabel
  785.         Left = 48
  786.         Top = 24
  787.         Width = 132
  788.         Height = 16
  789.         Caption = 'Summary of orders for '
  790.       end
  791.       object CB_Label4: TCB_Label
  792.         Left = 464
  793.         Top = 32
  794.         Width = 105
  795.         Height = 33
  796.         Caption = 'SubTotal'
  797.         Font.Color = clNavy
  798.         Font.Height = -20
  799.         Font.Name = 'Arial'
  800.         Font.Style = [fsBold]
  801.         ParentFont = False
  802.         Transparent = True
  803.         About = 'Version 5.32'
  804.         Style = stRaised
  805.         ShadowColor = 16777088
  806.       end
  807.       object CB_Label5: TCB_Label
  808.         Left = 464
  809.         Top = 7
  810.         Width = 57
  811.         Height = 24
  812.         Caption = 'Count'
  813.         Font.Color = clNavy
  814.         Font.Height = -20
  815.         Font.Name = 'Arial'
  816.         Font.Style = [fsBold]
  817.         ParentFont = False
  818.         Transparent = True
  819.         About = 'Version 5.32'
  820.         Style = stRaised
  821.         ShadowColor = 16777088
  822.       end
  823.       object DBEdit14: TDBEdit
  824.         Left = 185
  825.         Top = 22
  826.         Width = 231
  827.         Height = 24
  828.         DataField = 'Company'
  829.         DataSource = DataSource1
  830.         MaxLength = 30
  831.         TabOrder = 0
  832.       end
  833.       object CBCalc1: TCBCalc
  834.         Left = 584
  835.         Top = 34
  836.         Width = 73
  837.         Height = 16
  838.         DataField = 'AmountPaid'
  839.         DataSource = DataSource2
  840.         ParentFont = False
  841.         BorderStyle = bsNone
  842.         Color = clWhite
  843.         Font.Color = clWindowText
  844.         Font.Height = -13
  845.         Font.Name = 'Arial'
  846.         Font.Style = []
  847.         DisplayFormat = '$ #,##0.00'
  848.         Text = '$ 21,429.00'
  849.         Alignment = taRightJustify
  850.         Operation = cbSum
  851.       end
  852.       object CBCalc2: TCBCalc
  853.         Left = 584
  854.         Top = 10
  855.         Width = 73
  856.         Height = 16
  857.         DataField = 'AmountPaid'
  858.         DataSource = DataSource2
  859.         ParentFont = False
  860.         ResetAfterBand = DetailTotal
  861.         BorderStyle = bsNone
  862.         Color = clWhite
  863.         Font.Color = clWindowText
  864.         Font.Height = -13
  865.         Font.Name = 'Arial'
  866.         Font.Style = []
  867.         DisplayFormat = '#,##0'
  868.         Text = '3'
  869.         Alignment = taRightJustify
  870.         Operation = cbCount
  871.       end
  872.     end
  873.     object PageFooter: TCBBand
  874.       Left = 49
  875.       Top = 521
  876.       Width = 894
  877.       Height = 41
  878.       Align = alTop
  879.       Color = clWhite
  880.       Frame.Color = clSilver
  881.       Frame.Left = frSingleThin
  882.       Frame.Right = frSingleThin
  883.       Frame.Top = frSingleThin
  884.       Frame.Bottom = frSingleThin
  885.       ForceNewPage = False
  886.       BandType = cbPageFooter
  887.       object CB_Label3: TCB_Label
  888.         Left = 364
  889.         Top = 8
  890.         Width = 159
  891.         Height = 32
  892.         Caption = 'Page Footer'
  893.         Font.Color = clBlue
  894.         Font.Height = -27
  895.         Font.Name = 'Arial'
  896.         Font.Style = [fsBold]
  897.         ParentFont = False
  898.         Transparent = True
  899.         About = 'Version 5.32'
  900.         Style = stRaised
  901.         ShadowOffset = 5
  902.       end
  903.       object Label2: TLabel
  904.         Left = 718
  905.         Top = 13
  906.         Width = 110
  907.         Height = 20
  908.         Alignment = taRightJustify
  909.         AutoSize = False
  910.         Caption = 'Page'
  911.         FocusControl = EditTerms
  912.         Font.Color = clBlack
  913.         Font.Height = -15
  914.         Font.Name = 'Arial'
  915.         Font.Style = []
  916.         ParentFont = False
  917.       end
  918.       object CBSystem1: TCBSystem
  919.         Left = 8
  920.         Top = 12
  921.         Width = 100
  922.         Height = 16
  923.         ParentFont = False
  924.         BorderStyle = bsNone
  925.         Font.Color = clWindowText
  926.         Font.Height = -13
  927.         Font.Name = 'Arial'
  928.         Font.Style = []
  929.         Color = clWhite
  930.         Data = cbDate
  931.         DisplayFormat = '#,##0.00'
  932.         Text = '0.00'
  933.         Alignment = taLeftJustify
  934.       end
  935.       object CBSystem2: TCBSystem
  936.         Left = 848
  937.         Top = 12
  938.         Width = 33
  939.         Height = 16
  940.         ParentFont = False
  941.         BorderStyle = bsNone
  942.         Font.Color = clWindowText
  943.         Font.Height = -13
  944.         Font.Name = 'Arial'
  945.         Font.Style = []
  946.         Color = clWhite
  947.         Data = cbPageNumber
  948.         DisplayFormat = '0'
  949.         Text = '1'
  950.         Alignment = taLeftJustify
  951.       end
  952.     end
  953.   end
  954.   object DataSource1: TDataSource
  955.     DataSet = Table1
  956.     Left = 287
  957.     Top = 5
  958.   end
  959.   object DataSource2: TDataSource
  960.     DataSet = Table2
  961.     Left = 343
  962.     Top = 5
  963.   end
  964.   object Table1: TTable
  965.     Active = True
  966.     DatabaseName = 'DBDEMOS'
  967.     TableName = 'CUSTOMER.DB'
  968.     Left = 259
  969.     Top = 5
  970.     object Table1CustNo: TFloatField
  971.       FieldName = 'CustNo'
  972.     end
  973.     object Table1Company: TStringField
  974.       FieldName = 'Company'
  975.       Size = 30
  976.     end
  977.     object Table1Addr1: TStringField
  978.       FieldName = 'Addr1'
  979.       Size = 30
  980.     end
  981.     object Table1Addr2: TStringField
  982.       FieldName = 'Addr2'
  983.       Size = 30
  984.     end
  985.     object Table1City: TStringField
  986.       FieldName = 'City'
  987.       Size = 15
  988.     end
  989.     object Table1State: TStringField
  990.       FieldName = 'State'
  991.     end
  992.     object Table1Zip: TStringField
  993.       FieldName = 'Zip'
  994.       Size = 10
  995.     end
  996.     object Table1Country: TStringField
  997.       FieldName = 'Country'
  998.     end
  999.     object Table1Phone: TStringField
  1000.       FieldName = 'Phone'
  1001.       Size = 15
  1002.     end
  1003.     object Table1FAX: TStringField
  1004.       FieldName = 'FAX'
  1005.       Size = 15
  1006.     end
  1007.     object Table1TaxRate: TFloatField
  1008.       FieldName = 'TaxRate'
  1009.     end
  1010.     object Table1Contact: TStringField
  1011.       FieldName = 'Contact'
  1012.     end
  1013.     object Table1LastInvoiceDate: TDateTimeField
  1014.       FieldName = 'LastInvoiceDate'
  1015.     end
  1016.   end
  1017.   object Table2: TTable
  1018.     Active = True
  1019.     DatabaseName = 'DBDEMOS'
  1020.     IndexName = 'CustNo'
  1021.     MasterFields = 'CustNo'
  1022.     MasterSource = DataSource1
  1023.     TableName = 'ORDERS.DB'
  1024.     Left = 315
  1025.     Top = 5
  1026.     object Table2OrderNo: TFloatField
  1027.       FieldName = 'OrderNo'
  1028.     end
  1029.     object Table2CustNo: TFloatField
  1030.       FieldName = 'CustNo'
  1031.       Required = True
  1032.     end
  1033.     object Table2SaleDate: TDateTimeField
  1034.       FieldName = 'SaleDate'
  1035.     end
  1036.     object Table2ShipDate: TDateTimeField
  1037.       FieldName = 'ShipDate'
  1038.     end
  1039.     object Table2EmpNo: TIntegerField
  1040.       FieldName = 'EmpNo'
  1041.       Required = True
  1042.     end
  1043.     object Table2ShipToContact: TStringField
  1044.       FieldName = 'ShipToContact'
  1045.     end
  1046.     object Table2ShipToAddr1: TStringField
  1047.       FieldName = 'ShipToAddr1'
  1048.       Size = 30
  1049.     end
  1050.     object Table2ShipToAddr2: TStringField
  1051.       FieldName = 'ShipToAddr2'
  1052.       Size = 30
  1053.     end
  1054.     object Table2ShipToCity: TStringField
  1055.       FieldName = 'ShipToCity'
  1056.       Size = 15
  1057.     end
  1058.     object Table2ShipToState: TStringField
  1059.       FieldName = 'ShipToState'
  1060.     end
  1061.     object Table2ShipToZip: TStringField
  1062.       FieldName = 'ShipToZip'
  1063.       Size = 10
  1064.     end
  1065.     object Table2ShipToCountry: TStringField
  1066.       FieldName = 'ShipToCountry'
  1067.     end
  1068.     object Table2ShipToPhone: TStringField
  1069.       FieldName = 'ShipToPhone'
  1070.       Size = 15
  1071.     end
  1072.     object Table2ShipVIA: TStringField
  1073.       FieldName = 'ShipVIA'
  1074.       Size = 7
  1075.     end
  1076.     object Table2PO: TStringField
  1077.       FieldName = 'PO'
  1078.       Size = 15
  1079.     end
  1080.     object Table2Terms: TStringField
  1081.       FieldName = 'Terms'
  1082.       Size = 6
  1083.     end
  1084.     object Table2PaymentMethod: TStringField
  1085.       FieldName = 'PaymentMethod'
  1086.       Size = 7
  1087.     end
  1088.     object Table2ItemsTotal: TCurrencyField
  1089.       FieldName = 'ItemsTotal'
  1090.     end
  1091.     object Table2TaxRate: TFloatField
  1092.       FieldName = 'TaxRate'
  1093.     end
  1094.     object Table2Freight: TCurrencyField
  1095.       FieldName = 'Freight'
  1096.     end
  1097.     object Table2AmountPaid: TCurrencyField
  1098.       FieldName = 'AmountPaid'
  1099.       DisplayFormat = '$ #,##0.00'
  1100.     end
  1101.   end
  1102. end
  1103.